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MODULE Sexchdef; 
/* 
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ae OR en en OR Oe a et iI ie tie 


Ae Version: *v04-000' 
* 
| 
{ee 
/* 
Ae FACILITY: EXCHANGE = Foreign volume interchange utility 
. ABSTRACT: Data structure definitions for EXCHANGE. | 
® i 
se ENVIRONMENT: VAX/VMS operating system, unprivileged user-mode utility | 
® | 
pe AUTHOR: CW Hobbs 
® | 
/* DATE: 12-July-1982 Last Edit: 
40 /* 
41 /* MODIFIED BY: 
4 /* 
4 /* 
Rapa er | 
15-SEP-1984 23:01:31.30 So, v2.0 Page ee 
15-SEP-1984 22:44:23 -$255$DUA28: CEXCHNG. SRC JEXCDEFS.SDL;1 
ao fe | 
& 
re Ae Local constants which define the sizes of adjustable structures in SEXCHDEF 
& } 
/t- 
! | 
§ #io_buf_blocks = 12; /* must be 5 or more, at least 2 blocks 
/* larger than rec_buf_size, and LEQU 127 
: #rec_buf_size = 512; 
6 


58 [oe } 
/* 
$9 a DMPDSV = Flag options for EXCHSDBG_DUMP_DOSV debugging routine ; 
61 /*- g 
62 AGGREGATE dmpdsv STRUCTURE PREFIX dmpdsv$; g 
6 dmpdsv STRUCTURE BYTE UNSIGNED; g 
64 volb BITFIELD MASK; /* print volb and dosv addresses | e 
65 status BITFIELD MASK; /* print status flags é 
66 position BITFIELD MASK; /* print current position é 
67 entries BITFIELD MASK; /* print the directory entries é 
68 END dmpdsv; é 
69 END dmpdsv; é 
70 é 
71 f 
7 /+ g 
7 /* é 
ms is DOSNXT = Flag options for EXCHSDOS11_NEXT_ENTRY ; 
o 
76 /t- é 
77 AGGREGATE dosnxt STRUCTURE PREFIX dosnxt$; g 
78 dosnxt STRUCTURE BYTE UNSIGNED; E 
79 rewind BITFIELD MASK; /* "rewind'’ to the start of the tape é 
80 count_blocks  BITFIELD MASK; /* make sure that the block count is valid é 
81 END dosnxt; } 
Be END dosnxt; ‘ 
84 | é 
85 /*s g 
86 /* é 
44 fe EXCHBLK = Constant definitions for block type codes } 
89 /t- g 
30 CONSTANT | ‘ 
9 copy. /* work area for COPY and TYPE verbs g 
9 dire /* DIRECTORY verb work area é 
94 dosif, /* volume specifics for DOS-11 é 
95 dosiictx, /* DOS-11 file context block e 
% excg, /* global data structure é 
97 filb, /* File context block | f 
98 init, /* INIT verb work area t 
99 moun, /* MOUNT verb work area é 
100 namb, /* name bloc é 
101 rmsb, /* exchbLk$k_rmsb - code for file block é 
102 rtil, /* volume specifics for RT-11 | é 
15-SEP-1984 23:01:31.30 so v2.0 + 3 
15-SEP-1984 22:44:23 -$255$DUA28: CEXCHNG. SRC JEXCDEFS.SOL; 1 
103 rtlictx, /* RT=11 file context block { 
104 volb, /* volume block é 
105 rtnan /* RT-11 name routine work area 
109 EQUALS 255 INCREMENT -1 PREFIX exchbLk$; 
109 | { 
We fs ey | 
' 
18 = FINDBIN = Return status codes for PDP_FIND_BINARY_RECORD 
e j 
114 /e- | 
115 CONSTANT 
116 ( 


—E 8 
1 success, /* found a eyyers 
1 eob, /* end of buffer, no record found 
1 chksum, /* checksum failed to match 
too_big, /* record larger than output buffer 
bad_fm /* badly formed record 


EQUALS 0 INCREMENT 1 PREFIX findbin$; 


CONSTANT lLobound EQUALS findbin$k_success PREFIX f 
CONSTANT hibound EQUALS findbin$Sk_bad_fmt PREFIX f 


{e+ 


/* 
FINDSTM = Return status codes for PDP_FIND_STREAM_RECORD 


{/t- 

ee 
success, /* found a record 
ctrlz_eof, /* *2 at beginning of record 
eob, /* end of buffer, no record found 
no_term, /* end of buffer, porties record found 
bad_fmt /* record longer than output buffer 


EQUALS 0 INCREMENT 1 PREFIX findstm$; 


CONSTANT lobound EQUALS findstm$k_success PREF 


IX findstm$; 
CONSTANT hibound EQUALS findstm$k_bad_fmt PREFIX f 


indstm$; 


{te 


/t 
. PRSOPT - Flag options for EXCHSCMD_PARSE_FILESPEC 


prsopt STRUCTURE BYTE UNSIGNED 
virtual_device BITFIELD MASK; /* parse device name as a virtual device 
pa oet varus BITFIELD MASK; /* skip CLISGET_VALUE call, use parameter name as value 
rsopt; 
END prsopt; , 
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| 
| 
| 
| 
| 
| 
| 
| 
/*- | 
AGGREGATE prsopt STRUCTURE PREFIX prsopt$; | 
| 
| 
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¢ | 
16 /* 
1o7 . RTNXT = Flag options for EXCHSRTACP_NEXT_ENTRY 

® 
165. /#= | 
166 AGGREGATE rtnxt STRUCTURE PREFIX rtnxt$; 
167 rtnxt STRUCTURE BYTE UNSIGNED; 4 
168 permanent BITFIELD MASK; /* look for permanent entries 
is? empty BITFIELD MASK; /* look for empty entries 
170 tentative BITFIELD MASK; /* look for tentative entries 
171 unknown BITFIELD MASK; /* look for invalid entries 
176 skip check BITFIELD MASK; /* skip the check for moved entry ty 
17 skip_expand BITFIELD MASK; /* skip expanding the radix-50 name to ascii 
174 END rtnxt; 
175 = END rtnxt; 
176 


22... .M.A.A.A.A.A.A.AAD AHN NMBA PRA Hee Hews 


RR me AA MMA AHAANAA 


F 
15-61 804 BFeki abe Obs SsOaz:cENCHNG.SRCJEXCDEFS.Sofe1 > 


177) / 8 
178 = /* 
44 s $SCOPY = copy block 
13) oe Contains the work area for the COPY and TYPE verbs | 
7 
19? HOGREGATE copy STRUCTURE PREFIX copy$; 
e 
HH eS Dynamic character string descriptors for name components. These strings are reclaimed at the start of each copy 
19? pe default_filename QUADWORD UNSIGNED; /* desc for sticky name 
191 size WORD UNSIGNED; /* standard size of the block (symbol EXCHBLK$S_copy) | 
136 type BYTE UNSIGNED; /* type code field (symbol EXCHBLK$K_copy) 
13? ee std_fill BYTE FILL; /* unused 
| 
195 input_ filename QUADWORD UNSIGNED; /* desc for current item from input parameter List 
138 re output_filename QUADWORD UNSIGNED; /* desc for output parameter | 
Hb , input_sticky_name QUADWORD UNSIGNED; /* name to make input files sticky 
® | 
200 {\ Qq_boot QUADWORD UNSIGNED; /* qualifier /BO0O0T=string 
$0. ‘\ q_fdl QUADWORD UNSIGNED; /* qualifier /FDL=string 
208 rs CONSTANT start_zero EQUALS .; /* here to end is cleared for each copy command 
$oe = Integer valued command qualifiers 
* | 
207 q_allocation LONGWORD UNSIGNED; /* qualifier /ALLOCATION=n (optional) 
208 q_extension LONGWORD UNSIGNED; /* qualifier /EXTENSION=n (optional) 
$10 P q_start_block LONGWORD UNSIGNED; /* qualifier /START_BLOCK=n 
® 
$i) . Flags for boolean DCL command qualifiers 
$1 qual_flags STRUCTURE LONGWORD UNSIGNED; /* the whole flags longword 
sie Q_best_try_contiguous BITFIELD MASK; 
15 «\ q~confirm BITFIELD MASK: | 
216 q_contiguous BITFIELD MASK; 
217 q_delete BITFIELD MASK; 
218 7 09 : BITFIELD MASK; F 
219 a_nolog_explicit BITFIELD MASK; /* we had an explicit /NOLOG . 
220 Q_protect ; BITFIELD MASK; /* value for protect bit, not useful unless explicit also set 
221 Q_protect_explicit BITFIELD MASK; /* an explicit /PROTECT or /NOPROTECT was seen 
$$¢ q_replace BITFIELD MASK; 
$$ q_rewind BITFIELD MASK; 
24 q_system BITFIELD MASK; 
25 g truncate BITFIELD MASK; 
$$ 96 RD qual_flags; 
$8 . Local copy command flags 
$5 copy_flags STRUCTURE LONGWORD UNSIGNED; /* the whole flags longword : < 
31 multiple_files BITFIELD MASK; /* the input potentially describes multiple files 
3 type_command BITFIELD MASK; /* the command is TYPE rather than COPY ; 
3 reopen_input BITFIELD MASK; /* reopen previous input file (due to RT-11 bad file) | 
13-$60-19 4 g :01:31.30 SP ¥E00 Pope 6 
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G 
Leapen, th progress BITFIELD MASK; /* current thee has been reopened 


END copy_flags; 
A Other misc data items 
F max_rec LONGWORD UNSIGNED; /* current maximum output Length 
Ae Work area for the current input file 
® 
inp_filb ADDRESS; /* pointer to a filb for the input file 
te inp_namb ADDRESS; /* pointer to a namb describing the input file 
Work area for the current output file 
out_filb ADDRESS; /* pointer to a filb for the output file 
oa out_namb ADDRESS; /* pointer to a namb describing the output file 
CONSTANT end zero EQUALS .; /* no need to clear the buffers (or create pages not to be used) 
CONSTANT “‘Length’’ EQUALS .; /* Length of data structure 
END copy; 
15-SEP-1984 23:01:31.30 SDL V2.0 cope 
15-SEP-1984 22:44:23 -$255$DUA28: CEXCHNG. SRCJEXCDEFS.SDL;1 
/* 


/* Generic file context block. This is the front part of both the RT11CTX and DOSITICTX blocks, and is used 
. by the PDP record routines shared by both RT-11 and DOS-11 formats 
eatin ctx STRUCTURE PREFIX ctx$; 

& 


x. Links to the queues of in-use and available blocks, plus standard type and size fields 


header STRUCTURE QUADWORD UNSIGNED; /* queue header 
flink ADDRESS; /* forward Link 
blink ADDRESS; /* reverse Link 
; END Link; 
* 
size WORD UNSIGNED; /* standard size of the block (symbol EXCHBLK$S_dos11ctx) 
type BYTE UNSIGNED; /* type code field (symbol EXCHBLKS$K_doslictx) 
a std_fill BYTE FILL; /* unused 
fe alloc ADDRESS; /* Link to List of allocated blocks 
a Addresses of associated control structures 
assoc_filb ADDRESS; /* address of the filb 
ye assoc_volb ADDRESS; /* address of the volb 
es 1/0 buffer for this record stream 
® 
pe buffer ADDRESS; /* Pointer to the buffer 
CONSTANT buffer_blocks EQUALS #io_buf_blocks; /* size of the buffer in blocks 
P CONSTANT buffer_length EQUALS #io_buf_blocks*512; /* size of the buffer in bytes 
t 
CONSTANT start_zero EQUALS .; /* here to end is cleared for each copy command 


/* 
oe Data to describe a record stream in the file. 


cur_block LONGWORD UNSIGNED; /* pbn of current block 
eof _block LONGWORD UNSIGNED; /* pbn of last block in file 


7 


I 
MOOOOOOOCOOOOo 


ee ee ee me ee ee a ae ee De ce De ce et ee ee De ee ae Pe ed ed ed ed ed et 
PRAPA2AIGIAAAAAPBAPVAMAOAIMAOAOIDBADOABAABOWOOOHBOHOAMBMOOOBOOOOOOOS 


H 8 
/* offset into the block 
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/ 
a Some pointers to RMS structures 


ge . cur_byte LONGWORD UNSIGNED; 
4 jn Flags for an open file. This longword will be zero when file is not open 
98 flags STRUCTURE LONGWORD UNSIGNED; /* the whole flops Longword 
99 stream_active BITFIELD MASK; /* block currently describes an open file 
00 output_file BITFIELD MASK; /* block currently describes an output file | 
01 flush BITFIELD MASK; /* tell advance routine to flush Last block 10 
0 ointer BITFIELD MASK; /* tape position is at this file 10 
bi = ND flags; 10 
32 . Pointers to the 1/0 buffer for this record stream | 18 
07 buf _base_block LONGWORD UNSIGNED; /* Pbn of first block in buffer 13 
08 buf ~high-block LONGWORD UNSIGNED; /* Pbn of Last block in buffer 13 
24 high_blotk_ written LONGWORD UNSIGNED; /* Pbn of highest block to the file | 10 
\) CONSTANT “‘Length’’ EQUALS .; /* Length of data structure | 13 
10 
15-SEP-1984 23:01:31.30 SDL_v2.0 Page a 1 
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33 END ctx; | \ 
15-SEP-1984 33 01:31.30 SDL _v2.0 Page 9 | 10 
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315 {ee | 10 
318 /* 10 
v /* SDIRE - Directory block | if 
319 . Contains the work area for the DIRECTORY verb | i" 
a * bat: 
328 AGGREGATE dire STRUCTURE PREFIX direS; is 
326 > filename QUADWORD UNSIGNED; /* file name parameter to command | Vs 
* 
27 size WORD UNSIGNED; /* standard size of the block (symbol EXCHBLK$S_dire) 10 
28 type BYTE UNSIGNED; /* type code field (symbol EXCHBLK$K_dire) i" 
$3 std_fill BYTE FILL; /* unused 10 
H oe Dynamic character string descriptors for name components | 1 
33 output_file QUADWORD UNSIGNED; /* desc for /OUTPUT file name i 
3 i default_name QUADWORD UNSIGNED; /* desc for sticky name 1 
<5 CONSTANT start_zero EQUALS .; /* here to end is cleared for each directory command } 
11 
11 
11 
11 
11 
11 
11 
11 


qa_columns 
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/t 
/* Integer valued command qualifiers 
et 


LONGWORD UNSIGNED; 


/t 
/* Command qualifier flags 

° 
qual_flags STRUCTURE LONGWORD UNSIGNED; 


qualifier /COLUMNS=n (always present) 


the whole flags longword 


outrmsb ADDRESS; /* A S$RMSB structure for the /OUTPUT file block 
out fab ADDRESS; /* Ref to fab for output 
outrab ADDRESS; /* Ref to rab for output 


| 
385 END dire; | 
386 
| 
| 
| 


8 
1 q_all BITFIELD MASK; /* qust tt ler /ALL 1 
§ {\ q_badblocks BITFIELD K; /* qualifier /BADBLOCKS "1 
q_blocks BITFIELD MASK; /* qualifier /BLOCKS 1 
4 q_brief BITFIELD MASK; /* qualifier /BRIEF 11 
5 Q_dat BITFIELD K; /* qualifier /DATE 1 
$ q_deleted BITFIELD K; /* qualifier /DELETED if 
5 q_free BITFIELD K; /* qualifier /FREE 
58 a7 full BITFIELD MASK; /* qualifier /FULL i 
59 qzoctal BITELELD K: /* qualifier /OCTAL | : 
0 q_output BITFIELD MASK; /* qualifier /OUTPUT=<filespec> 1 
1 q_owner BITFIELD MASK; /* qualifier /OWNER i 
$ q_printer BITFIELD MASK; /* qualifier /PRINTER 1 
size BITFIELD K; /* qualifier /SIZE | 
64 9 summary BITFIELD MASK; /* qualifier /SUMMARY 1 
o° Pe AND qual_flags; | i 
67 is Local directory command flags 1 
69 dire_flags STRUCTURE LONGWORD; | ie 
70 tem_to_print BITFIELD MASK; /* an item is waiting to be printed | i" 
371 items_printed BITFIELD MASK; /* one or more items have been printed | i 
15-SEP-1984 23:01:31.30 SDL v2.0 Page e-4 "1 
15-SEP-1984 22:44:23 _$255$DUA28 : LEXCHNG. SRCJEXCDEFS.SDL;1 | uy 
378 Se END dire_flags; | 11 
ge . Other misc data items | } 
376 item_width LONGWORD UNSIGNED; /* width of a single directory Listing item i. 
77 List_width LONGWORD UNSIGNED; /* maximum Listing width | 1 
78 cur_width LONGWORD UNSIGNED; /* current Listing width 11 
79 cur_column LONGWORD UNSIGNED; /* current column in Listing buffer ie 
80 List_buf fer CHARACTER LENGTH $12: /* buffer where Listing Lines are assembled 4 
ine re CONSTANT item_spacing EQUALS 3; 11 
33 CONSTANT “‘Length’’ EQUALS .; /* Length of data structure i" 
384 i 
11 
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87 /+ 11 
88 /* 11 
89 ys $D0S11 - volume specific structure for an DOS-11 volume 
91 /* Contains all the DOS-11 specific control structures for a volume. This structure would 1 
9 ye normally hang from VOLBSA_VFMT_SPECIFIC. | 1 
3S /t- 1 
96 AGGREGATE dos11 STRUCTURE PREFIX dos11$; 1 
338 a dummy QUADWORD FILL; /* filler to put the size and type fields in the right spot i 
99 size WORD UNSIGNED; /* standard size of the block (symbol EXCHBLK$S_rmsb) 1 
400 type BYTE UNSIGNED; /* type code field (symbol EXCHBLKSK_rmsb) 
ret , std_fill BYTE FILL; /* unused 
e 
ret pa CONSTANT start_zero EQUALS .; 
oye i Variables to describe the state of the DOS-11 device go here 
e 
40 status STRUCTURE WORD UNSIGNED; /* complete status word 


/e 
. DOS-11 “‘directory’’ entry 


peenesats dosllent STRUCTURE PREFIX dosllent$; 
/* Links to the rest of the entries for a tape 


8 
t88 peers zen, ves te BITFIELD MASK; /* value tn dosi1$l_current_file is valid 
4 eg_of_tape BITFIELD MASK; /* last operation réwound the mogtape 
410 tape_mark BITFIELD MASK; /* magtape read found a tape mar 
411 end_of_tape BITFIELD MASK; /* magtape read found two consecutive tape marks 
£16 directory BITFIELD MASK; /* peptane “directory’’ is complete and valid 
4) current_marked BITFIELD MASK; /* file underneath the heads marked with ‘'=>"' 
414 error_rewind BITFIELD MASK; /* tape has been rewound due to error 
$1? o. END status; 
t13 /* Remember which file on the tape was last read. The file at BOT is file #0. The current_file | 
ret . number in conjunction with the position bits marks a location on the tape. 
420 | current_tile LONGWORD UNSIGNED; | 
te 
2 5 - Directory entries are Linked from here. This is really just a queue of the Labels 
424 entry_header STRUCTURE QUADWORD UNSIGNED; /* queue header 
425 entry_flink ADDRESS; /* forward Link 
426 entry_blink ADDRESS; /* reverse Link 
: P END entry_header; 
® 
429 /* The address of the current label for wildcard operations. Note that this will not necessarily correspond 
ret : to the current_file position. 
$38 pe current_entry ADDRESS; /* address of the current entry in the queue 
rir Various bits and pieces for 10 operations on tapes 
436 josb STRUCTURE QUADWORD UNSIGNED; 
43 jiosb_status WORD UNSIGNED; /* returned status 
counts UNION; 
iosb_skipcnt WORD; /* number of files or records skipped (signed) 
iosb_bytecnt WORD UNSIGNED; /* size of transfer 
END counts; 
iosb_char LONGWORD UNSIGNED; /* characteristics buffer 
END Tosb; 
15-SEP-1984 23:01:31.30 $0, v2.0 Page 12 | 
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x 
. We need a scratch buffer to read in our tape labels 
, (abel_buf CHARACTER LENGTH 14; /* anything over 14 is invalid 
& 
° The routine EXCH$10_D0S11_COUNT_BLOCKS stores the block count in the next field | 
& 
fe block_count WORD UNSIGNED; 
CONSTANT end_zero EQUALS .; ‘ | 
CONSTANT “‘Length"* EQUALS .; /* Length of data structure 
END dos11; | 
15-SEP-1984 $30] #3130 $4, v2.0 Page 13 
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reg header aged} QUADWORD UNSIGNED; /* queue header 
46 ftlink DRESS; /* forward Link 

46 pore ADDRESS: /* reverse Link 

rf END Link; 

470 /* 


; 471 /* The entry info will be copied into the doslictx entry, put a marker | 
47 fe so that we can automatically compare the Lengths 


47 
ane t. CONSTANT “‘start_entry’’ EQUALS .; 
$78 . Next seven words map directly onto the 14-byte mag tape Label 
478 sitonene. 1 LONGWORD UNSIGNED; /* 6 Radix-50 characters 
479 file etype WORD UNSIGNED; /* 3 Radix-50 characters 
480 Aa STRUCTURE WORD UNSIGNED; /* User ID code 
481 member BYTE U IGNED; /* Member number 
rk ar our . BYTE UNSIGNED; /* Group number 
uic; 

484 protection WORD UNSIGNED; /* Protection code 
485 date WORD UNSIGNED; /* Creation date field 
+38 pa filename_2 WORD UNSIGNED; /* 3 Radix-50 characters 
ret . Rest of fields are computed 

® 
490 blocks WORD UNSIGNED; /* Total length of file 
135 ps file_number WORD UNSIGNED; /* Position of file on tape, first file is #0 
493 entry_status STRUCTURE on. UNSIGNED; 
494 Tocks_valid BITFIELD MASK; /* The "BLOCKS" field is correct 
495 END entry. status; 
496 /* 
red j CONSTANT “‘end_entry’’ EQUALS .; 

& 
r}44 CONSTANT “‘Length"’ EQUALS .; /* Length of data structure 
209 END dosilent; 

15-SEP-1984 23:01:31.30 SDL _ v2.0 cage 
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503 /* 
504 /* DOS-11 file context block This is a combination of the FAB, RAB and NAM block 
505 /* for an DOS-11 random access file 
ao" 
208 AGGREGATE dosiictx STRUCTURE PREFIX doslictx$; 
316 = Links to the queues of in-use and available blocks, plus standard type and size fields 
518 header STRUCT ne QUADWORD UNSIGNED; /* queue header 
51 flink DRESS; /* forward Link 
514 blink ADDRESS: /* reverse Link 
a1? te END Link; 
517 size WORD UNSIGNED; /* standard size of the block (symbol EXCHBLKS$S_dos1ictx) 
518 type BYTE UNSIGNED; /* type code field (symbol EXCHBLKS$K_dos11ctx) 
520 , std_fill BYTE FILL; /* unused 

cg 
; p alloc ADDRESS; /* Link to List of allocated blocks | 

e ! 
538 a Addresses of associated control structures 

ye 
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/t 

i. 1/0 buffer for this record stream 

te ADDRESS; /* 

je CONSTANT start_zero EQUALS .; /* 

Av Data to describe a record stream in the file. 
cur_block LONGWORD UNSIGNED; /* 
eof block LONGWORD UNSIGNED; /* 

je LONGWORD UNSIGNED; /* 

Me Flags for an open file. 

® 


/t 
i Next seven words map directly onto the 14-byte mag tape 
® 
filename_1 LONGWORD UNSIGNED; 
el etyee WORD UNSIGNED; 
uic STRUCTURE WORD UNSIGNED; 
member BYTE UNSIGNED; 
group . BYTE UNSIGNED; 
ND uic; 
protection WORD UNSIGNED; 
date WORD UNSIGNED; 
, filename_2 WORD UNSIGNED; 
e 
: Rest of fields are computed 
® 
blocks WORD UNSIGNED; 
, file_number WORD UNSIGNED; 
® 
mary status STRUCTURE WORD UNSIGNED; 
Tocks_valid BITFIELD MASK; 
END entry_status; 
END entry_fields; 
F END entry_union; 
* 


high_block_written LONGWORD UNSIGNED; 
® 

The next part is a duplicate of the directory entry 
® 


current_entr ADDRESS; 
entry union UNION; 
entry’ 


entry_fields STRUCTURE; 


L 
assoc_filb ADDRESS; /* address of the filb 
assoc_volb ADDRESS; /* address of the volb 


Pointer to the buffer 
here to end is cleare: each copy command 


pbn of current block — 
pbn of Last block in file 
offset into the block 


This longword will be zero when file is not open 


flags STRUCTURE LONGWORD UNSIGNED; /* the whole pies po lLongword 
stream_active BITFIELD MASK; /* block currently describes an open file 
output_file BITFIELD MASK; /* block currently describes an output file 
Lush BITFIELD MASK; /* tell advance routine to flush last block 
ointer BITFIELD MASK; /* tape position is at this file 
ND flags; 

Pointers to the 1/0 buffer for this record stream 
buf _base_block LONGWORD UNSIGNED; /* Pbn of first block in buffer 
buf high_block LONGWORD UNSIGNED; /* Pbn of last block in buffer 


/* Pbn of highest block to the file 


/* the address of this entry in the ‘‘directory’’ queue 
CHARACTER LENGTH dosllent$k_end_entry - dosllent$k_start_entry; /* The overall entry 
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Label 


Radix-50 characters 
Radix-50 characters 
User ID code 
Member number 
Group number 


Protection code 


reation date field 
Radix-50 characters 


Total length of file ; ! 
Position of file on tape, first file is #0 


The ‘BLOCKS’ field is correct 
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. Expanded name fields 


exp_fullname_len LONGWORD UNSIGNED; /* benges of the concatenated name 
exp_name_len” LONGWORD UNSIGNED; /* Length of the name field 
exp_type_len LONGUORD UNSIGNED; /* Length of the file exreg $400 ggyre? 
exp_directory CHARACTER LENGTH 10; /* UIC format directory "L000 
exp_ fullname CHARACTER LENGTH 13; /* Name in normal tere, no ahetaes blanks 
exp_name CHARACTER LENGTH 9; /* Blank padded name 
exp_type CHARACTER LENGTH 3; /* Blank padded extension 
ye ORR “date CHARACTER LENGTH 11; /* VMS format ascii date 
CONSTANT end_zero EQUALS 3 
CONSTANT “‘Length’’ EQUALS .; /* Length of data structure 
END dosiictx; 
15-SEP-1984 33:0) 31.30 SDL_V2.0 
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/e+ 

i: SEXCG = EXCHANGE Global data 

a Contains all the global data necessary for the EXCHANGE facility 
/t- 

REGREGATE excg STRUCTURE PREFIX excg$; 

i Flags for command Line qualifiers and local stat 


flags STRUCTURE WORD gh ae /* whole flags word 
control_c BITFIELD MASK; /* Control/C AST has been received 
qa_cache BITFIELD MASK; /* EXCHANGE /CACHE is in effect for RT-11 
9. message Oe ete MASK; /* EXCHANGE /MESSAGE is in effect 
areign. command BITFIELD MASK; /* exchange is soe in single-command mode 
exiting BITFIELD MASK; /* exit handler is active 
Pe END flags; 
a Channel for input terminal, used for setting control/c asts. 0 if input is not a terminal device 
- tt_channel WORD UNSIGNED; 
te copy_work ADDRESS; /* pointer to the work area for COPY and TYPE 
size WORD UNSIGNED; /* standard size of the block (symbol EXCHBLK$S_EXCG) 
type BYTE UNSIGNED; /* type code field (symbol EXCHBLK$K_EXCG) 
i std_fill BYTE FILL; /* unused 
“ Work areas for the individual command verbs (1 of these at top for alignment) 
® 
dire_work ADDRESS; /* pointer to the work area for pinec tony 
init_work ADDRESS; /* pointer to the work area for IN i 
moun_work ADDRESS: /* pointer to the work area for MOUN 
pS rtnam_work ADDRESS: /* pointer to the work area for DELETE and RENAME 
i. Process identification items 
uic_member WORD UNSIGNED; /* binary member number for uic directories 
uic_group WORD UNSIGNED /* binary group number for uic directories 
username CHARACTER LENGTH 12; /* process’ username 


e 
/* Exit handler for per-command activity, exh_routine is 0 if no handler is declared 
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645 /* 
ong exit adlock STRUCTURE; 
64 h_flink ADDRESS; js systen-maintained forward Link | 
648 exh_routine ADDR /* address of exit handling routine 
649 exh_arg_count LONCHORD UNSIGNED; /* number of arguments for routine 
650 exh_status ee dee /* address to store status code, reason for exit 
651 exh_volb ADDRESS; /* exit handler specific argument (volo address) 
626 exh_condvalu LONGWORD UNSIGNED; /* put the status code here 
$27 fa END exit_block; 
$2? S Exit handler for global /CACHE actions 
657 cachexit_block STRUCTURE; 
13-360= 198+ $30) 331. -30 130558 Pa 17 
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658 cachexh_flink sooner et? /* system-maintained forward | 
659 cachexh_routine ADDRE /* address of cachexit soe Bh ere 
660 cachexh_arg_count LONGUORD UNSIGNED; /* number of arguments for routine . 
661 cachexh_status ADDRESS; /* address to store status code, reason for cachexit 
66 cachexh_condvalu LONGWORD UNSIGNED; /* put the status code here 
oo? p END cachexit_block; | 

® 
oe? i. Queue headers for managed resources | 
667 doslictx_alloc ADDRE /* Head of List of alk allocated $doslictxs 
668 dos1ictx_use STRUCTURE QUADWORD NS IGNED; /* Head of queue of $doslictxs in-use queue 
669 os1Tctx_use_flink ADDRESS; /* Forward Link 
on dos11ctx us use =bl ink ADDRESS; /* Backward Link 
67 doslictx_avl STROCT Uke QUADWORD UNSIGNED; /* Head of queue of all available $doslictxs 
67 doslictx_avl_flink ADDRESS; /* Forward Link 
674 dosiictx_avl_blink ADDRESS; /* Backward Link 
of? P END dosiTctx_avl; 

a 
677 filb_alloc ADDRESS; /* Head of List of all allocated $filBs 
678 filb_use STRUCTURE QUADWORD UNSIGNED; /* Head of queue of file blocks in use queue 
679 Filb_use_flink ADDRESS; /* Forward Link 
680 filb-use_blink ADDRESS; /* Backward Link 
681 END TFilb-use; 
682 filb_avl STROCTURE QUADWORD UNSIGNED; /* Head of queue of all available $filBs 
683 Tilb_avl_flink ADDRESS; /* Forward Link | 
684 filb_avl_blink ADDRESS; /* Backward Link 
685 END Filbvavi; | 
687 namb_alloc ADDRESS; /* Head of List of all allocated $SNAMBs 
688 namb_use STRUCTURE QUADWORD UNSIGNED; /* head of queue of name blocks in use queue | 
689 namb_use_flink ADDRESS; /* Forward Link 
on neab us use “blink ADDRESS; /* Backward Link | 

“use; 

69 namb_avl "STROC Uke QUADWORD UNSIGNED; /* Head of queue of all available SNAMBs 
69 namb_avi_flink ADDRESS; /* Forward Link 
694 namb_avi"blink ADDRESS; /* Backward Link 
$9? , END famb_avi; 

we 
697 rmsb_alloc ADORESS; /* Head of List of all allocated SRMSBs 
698 rmsb_use STRUCTURE QUADWORD UNSIGNED; /* Head of queve of S$RMSBs in-use queue 
699 fmsb_use_flink ADDRESS; /* Forward Link 
ono rash us ues -pl ink ADDRESS; /* Backward Link 
70 rmsb_avl rSTROC TORE QUADWORD UNSIGNED; /* Head of queue of all available SRMSBs 
70 fmsb_avl_flink ADDRESS; /* Forward Link 


704 rmsb_avl-blink ADDRESS; /* Backward Link 


— 
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196 ye END rmsb_avl; 

7 rtlictx_alloc ADDRESS; /* Head of List of all allocated $rtiictxs 

708 rtlictx_use agg If QUADWORD UNSIGNED; /* Head of queue of S$rtiictxs in-use queue 

709 rtiTctx_use_flink ADDRESS; /* Forwar « 

710 rtiictx_use_blink ADDRESS; /* Backward Link 

711 END rtilictx_use; 

te rtlictx_avl STROCTURE QUADWORD UNSIGNED; /* Head of queue of all available $rtiictxs | 

71 rtiictx_avl_flink ADDRESS; /* Forward Link 

714 rtiictx avl_blink ADDRESS; /* Backward Link 

715 END rtiTctx_avl; | 
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717 volb_alloc ADDRESS; /* Head of List of all allocated $VOLBs 

718 volb_use STRUCTURE QUADWORD UNSIGNED; /* Head of queue of volume blocks in use queue 

719 volb_use_flink ADDRESS; /* Forward Link 

730 volb_use_blink ADDRESS; /* Backward Link 

721 END volb_use; 

722 volb_avl STROCTURE QUADWORD UNSIGNED; /* Head of queue of all available $VOLBs 

723 volb_avl_flink ADDRESS; /* Forward Link 

724 volb_avl_blink ADDRESS; /* Backward Link 

$3 ie END volb_avl; 

est te RMS data structures for command output, these point to memory at the end of the block 

16? sysout_ fab ADDRESS; /* pointer to RMS File access block 

730 sysout_rab ADDRESS; /* pointer to RMS Record access block 

731 sysout_nam ADDRESS; /* pointer to RMS Name block 

732 sysout_ebuf ADDRESS; /* pointer to RMS expanded name buffer 

th ‘ sysout_rbuf ADDRESS; /* pointer to RMS result name buffer 

a3 . Buffer for formatting 

® 

ree ts fao_buf fer CHARACTER LENGTH 258; /* used by util_fao_buffer 

739 = /* Other items which would be in here if SDL supported external literals. This space is allocated with the 

740 «=/* rest of the block. Certain pointers above point to these buffers. This area is part of the block, it 

oe) . is only due to restrictions in SDL that these are not actually defined here. 

74 /* buf_sysout_fab CHARACTER LENGTH #fab$k_bln; /* RMS File access block 

744 /* buf_sysout_rab CHARACTER LENGTH #rab$k_bln; /* RMS Record access block 

745 /* buf _sysout_nam CHARACTER LENGTH #nam$k_bln; /* RMS Name block 

746 /* buf _sysout_ebuf CHARACTER LENGTH @nam$c_maxrss; /* RMS expanded name buffer 

ot , /* buf _sysout_rbuf CHARACTER LENGTH #nam$c_maxrss; /* RMS result name buffer | 

® 

oy CONSTANT “‘Length’* EQUALS .; /* Length of data structure | 

3} END excg; | 
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753 /## 

754 = /# 

£33 fo SFILB - File Block 

739 “ Contains data to describe a particular active file 

oe | 

761 AGGREGATE filb STRUCTURE PREFIX filb$; 
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76 
76 /* | 
ree Me Links to the queues of in-use and available blocks, plus standard type and size fields | 
76 header STRUCTURE QUADWORD UNSIGNED; /* queue header 
76 flink ADDRESS; /* forward Link 
768 blink ADDRESS; /* reverse Link 
769 END Link; 
770 size WORD UNSIGNED; /* standard size of the block (symbol EXCHBLK$S_NAMB) | 
771 type BYTE UNSIGNED; /* type code field (symbol EXCHBLKSK_NAMB) 
fr? fe std_fill BYTE FILL; /* unused 
ore 1 alloc ADDRESS; /* Link to List of allocated blocks 
776 «=6/* The following name string has several uses Gopeners # the routine. for example, it is used to hold the 
wr fe result name from LIBSFIND_FILE routine for EXCHSFIL11_OPEN_FILE. 
ry p name_string QUADWORD UNSIGNED; 
® 
Ay . The rest of the block will be reset to nulls each time the block is allocated 
78 CONSTANT start_zero EQUALS .; 
784 /* 
785 = /* 
786 assoc_namb ADDRESS; /* namb for this file 
ate pa assoc_volb ADDRESS; /* address of mounted volb for this name, 0 for Files-11 
789 context ADDRESS; /* pointer to volume-specific structure defining file context 
790 /* DOSITICTX structure for DOS-11 tape files 
791 /* RTIICTX structure for RT-11 disk files 
79 /* RMSB for Files-11 files 
ak P filll_wee ADDRESS; /* wildcard context for LIBSFIND_FILE routine for Files-11 files | 
® 
oe? : The record format for this file (the volume format byte is in the assoc_namb) | 
797 rec_format BYTE UNSIGNED; /* record format code, a constant filbSk_rfmt_xxx 
798 CONSTANT ( 
799 rfmt_invalid, /* value 0, format not set to known value 
800 rfmt_binary, /* formatted binary records 
801 rfmt_fixed, /* fixed length records 
aoe rfmt_stream /* stream format records 
oO? Po ) EQUALS O INCREMENT 1; 
805 CONSTANT rfmt_lobound EQUALS 0; /* low bound for case statement 
806 CONSTANT rfmt=hibound EQUALS filbSk_rfmt_stream; | /* high bound 
® 
808 transfer_mode BYTE UNSIGNED; /* transfer mode code, a constant filbSk_xfrm_xxx | 
809 CONSTANT ( 
15-SEP-1984 23:01:31.30  SDL_y2.0 Page, 20 | 
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810 xfrm_automatic, /* decide block or record automatically, the default, value is zero 
811 xfrm_block, /* transfer block by block | 
aig xfrm recers /* transfer record by record 
ai? , ) EGUALS 0 INCREMENT 1; 
oF | 
B15 The carriage control for this file 
& ! 
Bi cor control , BYTE UNSIGNED; /* carriage control code, a constant filb$Sk_cctl_xxx 
19 cctlicr, /t gare iage return, the default, value is zero 
st cctl_ fortran, /* FORTRAN files 
1 cctl_none /* no carriage control 
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) EQUALS 0 INCREMENT 1; 
CONSTANT cctl_lobound EQUALS 0; 


$ 0 
3 CONSTANT cctlhibound EQUALS filb$k_cctl_none; 
A Record attribute and other misc flags 


flags STRUCTURE WORD UNSIGNED; 


rfmt_explicit BITFIELD 
cctllexplicit BITFIELD 
file_erased BITFIELD 
files_ found BITFIELD M 
files_created BITFIELD 
explicit version BITFIELD 
delete previous BITFIELD 
name_change BITFIELD 
qQ.best_try_contiguous BITFIELD 
q_contTguous BITFIELD 
9 truncate BITFIELD 
ND flags; 
q_allocation LONGWORD UNSIGNED; 
extension LONGWORD UNSIGNED; 
Txed_ len LONGWORD UNSIGNED; 
pad_char BYTE UNSIGNED; 
result_name_len LONGWORD UNSIGNED; 
block_count LONGWORD UNSIGNED; 


: Length of record, record address 


record 


record_len LONGWORD UNSIGNED; 
ADDRESS; 


. Addresses of action routines for this file 


close_routine ADDRESS; 
delete_routine ADDRESS; 
get_routine ADDRESS; 
put_routine ADDRESS; 


. CONSTANT end_zero EQUALS .; 
. No need to zero all the buffers 


result_name CHARACTER LENGTH 256; 

® 

: and actual record for when we need move mode 
record buffer CHARACTER LENGTH #rec_bu 
guard_Byte BYTE FILL; 


CONSTANT “‘Length"’ EQUALS .; 
END filb; 


/* low bound for case statement 
/* high bound 


the whole flags word 
record format specified 
carriage control specified 


file has been erased (e.g. due to write errors) 
one or more files have been found usin 
one or more files have been created us 
file name concained an explicit versi 
delete previous version of RT11 file 
the output name was changed from the input 


there is a /BEST on the input file 
there is a /CONT on the input file 
there is a /TRUN on the input file 


a /ALLOC was on the input file 
a /EXTEN was on the input file 
length of FIXED records 

pad character, default 0 


Length of the result name 
size of an existing file 


length of current record 
address of current record 


address of routine to close the file 

address of routine to delete the file a 
routine to get records, 0 for output-only files 
routine to put records, 0 for input-only files 


15-SEP-1984 23:01:31.30 S 
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buffer for the result name 


ize; 


eob logic much easier if we can write 1 byte past end of buffer 
/* Length of data structure 
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{+ 
O /* 

1 . SINIT = Init block 

§ . Contains the work area for the INIT verb 


Bae /t- 
8 _ init STRUCTURE PREFIX init$; 


QUADWORD UNSIGNED; 


device 


pointer to our name block 
pointer to our volume block 


standard size of the block 
type code field 
unused 


(symbol EXCHBLK$S_INIT 
(symbol EXCHBLK$K_INIT 


/* desc for device name, or filename for INIT /CREATE 
/* desc for volume id (for RT-11) 


889 namb ADDRESS; /* 

890 volb ADDRESS; /* 

891 /* 

89 size WORD UNSIGNED; /* 

89 type BYTE UNSIGNED; /* 

o3e te std_fill BYTE FILL; /* 

4] Oe Character string descriptors for name components 

898 device QUADWORD UNSIGNED; 

44 - volumeid QUADWORD UNSIGNED; 

ait . Command qualifier variables and flags 

90 Q_allocation LONGWORD UNSIGNED; /* 

904 wl ae gueres LONGWORD UNSIGNED; /* 

905 i LONGWORD UNSIGNED: /* 

906 Lees | $ TRUC TURE LONGWORD UNSIGNED; /* 

907 q_create BITFIELD MASK; /* 

908 Q_message BITFIELD MASK; /* 

909 q_badblocks BITFIELD MASK; /* 

910 {\ Q. -badblocks_ retain BITFIELD MASK; /* 

911 {\ a_replace BITFIELD MASK; /* 

aig {\ g apeptace. retain BITFIELD MASK; /* 

91 ND flags; 

914 /* 

a CONSTANT “‘Length"* EQUALS .; /* 

917 END init; 

918 

919 /+ 

920 /* 

1 . SMOUN - Mount block 

358 /* Contains the work area for the MOUNT verb 

924 /t 

352 /t- 

$27 soerente moun STRUCTURE PREFIX moun$; 

Seg namb ADDRESS; /* 

oe ps volb ADDRESS; /* 

g § size WORD UNSIGNED; /* 

93 type BYTE UNSIGNED; /* 
$e std_fill BYTE FILL; /t 


9 

9 /* 

aes is Character string descriptors for name components 
9 


/t 


size of virtual device to create /ALLOC=n 
number of extra words for directory entries /EXTRA=n 
number of directory segments /SEGMENTS=n 


the whole flags longword 
/CREATE 

/MESSAGE 

/BADBLOCKS 

re =RETAIN 


PL 
/REPLACE=RETAIN 


length of data structure 


pointer to our name block 
pointer to our volume block 


standard size, af the block 


type code fie 
unused 


desc for device name 
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(symbol EXCHBLK$S_MOUN) 
(symbol EXCHBLKSK_MOUN) 


23 


960 fe Contains a parsed file specification 
96 /t- 
964 AGGREGATE namb STRUCTURE PREFIX namb$; 


966 /* 
967 /* Links to the queues of in-use and available 


968 /* 

969 header Ts QUADWORD UNSIGNED; 
970 flink DRESS; 

971 blink ADDRESS: 

97 END Link; 

97 size WORD UNSIGNED; 
974 type BYTE UNSIGNED; 
975 std_fill BYTE FILL; 

976 /* 

977 alloc ADDRESS; 

978 /* 


981 input QUADWORD UNSIGNED; 


98 fullname QUADWORD UNSIGNED: 

98 expanded QUADWORD UNSIGNED; 

984 result QUADWORD UNSIGNED: 

i , device_dvi QUADWORD UNSIGNED; 
© 


node QUADWORD UNSIGNED; 


991 device QUADWORD UNSIGNED: 
99 directory QUADWORD UNSIGNED; 
99 name QUADWORD UNSIGNED; 
994 type QUADWORD UNSIGNED; 
995 version QUADWORD UNSIGNED: 


98 /* Descriptors of individual components of name. 
988 . above strings (usual case), or they might be dynamic copies of the components (t 


F 9 
/* desc for virtual device input file name 


878 . filename QUADWORD UNSIGNED; 
oe) Command qualifier flags 
308 9, LONGWORD UNSIGNED; /* write protection on the device (cli$_present tested) 
944 ny STRUCTURE LONGWORD UNSIGNED: /* the whole flags bengwere 
945 Q_read_check BITFIELD MASK; /* /DATA_CHECK=READ 
ae8 q_write ccneck BITFIELD MASK; /* /DATA_CH HECK=WRITE 
94 q_foreign BITFIELD MASK; /* /FORETGN device mount 
948 q_virtual BITFIELD MASK; /* /VIRTUAL v reuet device mount 
949 9: “message BITFIELD MASK; /* /MESSAGE was given 
320 AND flags: 

® 
326 CONSTANT “‘Length"’ EQUALS .; /* Length of data structure 
954 END moun; 
955 
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956 /*+ 
957 /* 
958 /* SNAMB - File Name Block 
959 /* 


biocks, plus standard type and size fields 


/* queue header 
/* forward Link 
/* reverse Link 


/* standard size of the block (symbol EXCHBLKS$S_NAMB) 
type gote field (symbol EXCHBLKSK_NAMB) 
* unuse 


/* Link to List of allocated blocks 


p14 4 Dynamic character string descriptors for name strings 


/* desc for input name 

/* desc for most complete (exp or res) 
/* desc for expanded name 

/* desc for result name 

/* desc for canonical device 


These might be fixed descriptors perering en one the 
e namb was clone 


/* desc for node name 

/* desc for device name 

/* desc for directory name 
/* desc for name name 

/* desc for type name 

/* desc for version name 


/t 
The rest of the block will be reset to nulls each time the block is allocated. The routine EXCHSCMD_NAMB_CLONE 
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G6 9 
i copies the rest of the block to a new namb when it clones the namb. 


1 | 
! 1 ve CONSTANT start_zero EQUALS .; | ; 
: g i Carry some info from the RMS structures | : 
1005 fabdev LONGWORD UNSIGNED; /* device characteristics from FABSL_DEV ‘ 
1208 nameflags STRUCTURE LONGWORD UNSIGNED; /* the whole flags longword : 
100 wildcard BITFIELD MASK; /* some field contains a wildcard rms's nam$v_wildcard] : 
1008 wild name BITFIELD MASK; /* file name contains a wildcard rms's neagv wi g_nene, : 
1009 wild _ty BITFIELD MASK; /* file type contains a wildcard rms's nonev wi td.type : 
1010 wild_version BITFIELD MASK; /* file version has a wildcard rms's Lnam$v_wild_ver : 
1011 wild group BITFIELD MASK; /* group number is a wildcard rms's namévwild.orp, ; 
1012 wild_member BITFIELD MASK; /* member number is a wildcard rms's Cnam$v_wild_mbr | : 
15-SEP-1984 23:01:31.30 SDL_ V2.0 cope 25 > 
1013. /* 15-SEP-1984 22:44:23 -$255$DUA28 : CEXCHNG. SRCJEXCDEFS.SDL; 1 | : 
1014 explicit_node BITFIELD MASK; /* device name is explicit rms's Cnam$v_nodej | : 
1015 explicit_device BITFIELD MASK; /* device name is explicit rms's Lnam$v_exp_dev] ‘ 
1016 explicit_directory BITFIELD MASK; /* directory name is explicit rms's [nam$v_exp_dirJ ; 
1017 explicit_name BITFIELD MASK; /* file name is explicit ims's [nam$v_exp_name] ; 
1018 explicit_type BITFIELD MASK; /* file type is explicit rms's Lnam$v_exp_type] | ; 
1930 te explicit_version BITFIELD MASK; /* an explicit version number rms's Cnam$v_exp_verJ | . 
1021 concealed_device BITFIELD MASK; /* device name is a concealed dev rms‘'s Cnam$v_cncl_dev] | : 
1056 rooted_directory BITFIELD MASK; /* device name has a root dir rms‘'s Cnam$v_root_dirJ | . 
1094 pa uic_directory BITFIELD MASK; /* directory is CGROUP,MEMBER] rms's Cnam$v_grp_mbrJ : 
| o 
1025 more_files BITFIELD MASK; /* CLISGET_VALUE gave us the CLIS$_COMMA status ; 
1026 bad_pdp_char BITFIELD MASK; /* a char Tn the name or type field isn't valid for RT11 or DOS11 : 
1027 dos_truncate BITFIELD MASK; /* name or type too long for D0S11 | ; 
1028 rt_truncate BITFIELD MASK; /* name or type too long for RT11 | ; 
94 P END namef lags; ; 
Y Py 
1031 next ADDRESS; /* Some commands Link multiple nambs off this pointer | ; 
108 pe assoc_volb ADDRESS; /* address of mounted volb referencing this name : 
1034 /* Keep a copy of the volume and record formats. Since both /VOLUME and /RECORD are local qualifiers, it is only | : 
1035 /* when we fetch the parameters that we can see any explicit qualifiers. Implied volume formats can be done when ; 
1938 . we see the parameter. Implied record formats can't be done until we have the fully expanded filename : 
1038 devclass BYTE UNSIGNED; /* device class (a DC$_xxx symbol) ; 
1039 devtype BYTE UNSIGNED; /* device type (a DT$_xxx symbol) : 
1040 vol_format BYTE UNSIGNED; /* volume format code, a constant volbSk_vfmt_xxx : 
1041 rec_format UNSIGNED; /* record format code, a constant filb$k_rimt_xxx : 
Hk transfer_mode BYTE UNSIGNED; /* transfer mode code, a constant filb$k_xfrm_xxx : 
104 car_control BYTE UNSIGNED /* carriage control code, a constant filB$Sk_cctl_xxx : 
1044 fixed len LONGWORD UNSIGNED; /* length of FIXED records | : 
1045 pad_char BYTE UNSIGNED; /* pad character, default : | 3 
18 uic_member BYTE UNSIGNED; /* binary member number for uic directories : 
104 vicgroup BYTE UNSIGNED; /* eanery grou number for uic directories : 
1048 flags STRUCTURE BYTE UNSIGNED; /* the whole flags byte 
1049 rfmt_explicit BITFIELD MASK; /* record format specified 
1050 cctl_explicit BITFIELD MASK; /* carriage control specified 
1051 vfmt_explicit BITFIELD MASK; /* volume format specified 
1936 END flags; 
105 * 
1328 /* Unique volume identifier 
e 
1056 vol_ident_len LONGWORD UNSIGNED; /* Length of the next field. Used for text display only, 
1057 /* comparisions look at the entire vol_ident field 
1058 vol_ident CHARACTER LENGTH 128; /* needs to be as long as a logical name | 


1059 
1308 CONSTANT “‘Length’’ EQUALS .; /* Length of data structure 

1086 END namb; 

106 
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‘ | 
Ae The rest of the block will be reset to nulls each time the block is allocated | 


1064 /*+ 

1065 /* 

1908 in SRMSB = RMS structures for a file 

t 

1208 x Contains all the RMS control structures for a file. 

1070 /t- 

1071 

107¢ AGGREGATE rmsb STRUCTURE PREFIX rmsb$; 

1074 /* | 

Ore * Links to the queues of in-use and available blocks, plus standard type and size fields 
} 

1077 header STRUCTURE QUADWORD UNSIGNED; /* queue header 

1078 flink ADDRESS; /* forward Link 

1079 blink ADDRESS; /* reverse Link 

1080 END Link; 

1081 size WORD UNSIGNED; /* standard size of the block (symbol EXCHBLK$S_rmsb) 

1086 type BYTE UNSIGNED; /* type code field (symbol EXCHBLKS$K_rmsb) 

et , std_fill BYTE FILL; /* unused 

e 

H+ $3 te alloc ADDRESS; /* Link to List of allocated blocks 

Hs $4 A Storage for the following control blocks is allocated at the end of the block 

1089 fab ADDRESS; /* pointer to RMS File Access Block 

1090 rab ADDRESS; /* pointer to RMS Record Access Block 

1091 nam ADDRESS; /* pointer to RMS Name Block 

1096 esbuf ADDRESS; /* pointer to RMS Expanded hg Buffer 

at rsbuf ADDRESS; /* pointer to RMS Result String Buffer 

1095 
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097 

o38 te CONSTANT start_zero EQUALS .; 

100 /* Other items which would be in here if SDL supported external Literals. This space is allocated with the 

101 /* rest of the block. Certain pointers above point to these buffers. This area is part of the block, it 

106 ie is only due to restrictions in SDL that these are not actually defined here. 

104 /* buf_fab CHARACTER LENGTH #fab$k_bln; /* RMS File access block 

105 /* buf_rab CHARACTER LENGTH #rab$k_bln; /* RMS Record access block 

106 /* buf_nam CHARACTER LENGTH #nam$k_blLn; /* RMS Name block 

107 /* buf_esbuf CHARACTER LENGTH #nam$c_maxrss; /* RMS expanded name buffer 

i F /* buf_rsbuf CHARACTER LENGTH #nam$c_maxrss; /* RMS result name buffer 
es | 

119 CONSTANT “‘Length’’ EQUALS .; /* length of data structure 

11g END rmsb; | 

11 | 
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I 
Me $RT11 = volume specific structure for an RT-11 volume 
/* Contains all the RT-11 prec rtie control structures for a volume. This structure would 
An normally hang from VOLBSA_VFMT_SPECIFIC. 
/t- 


@rt_dirseg = 1024; * Size of an RT11 oewerer? 2 segment 
#rt_root = 6; * Directory starts on bloc pbn) 


AGGREGATE rti1 STRUCTURE PREFIX rt11$; 
dummy QUADWORD FILL; /* spacer to put size and type in correct place 
size WORD UNSIGNED; /* standard size of the block (symbol EXCHBLK$S_rmsb) 
type Byte UNSIGNED; /* type code field (symbol EXCHBLK$K_rmsb) 
std_fill BYTE FILL; /* unused 
CONSTANT start_zero EQUALS .; 
A Variables to describe RT-11 go here 
® 
status STRUCTURE WORD UNSIGNED; /* complete status word 
dir_present BITFIELD MASK; /* directory is resident (up to highest block in use) 
END status; 
CONSTANT end_zero EQUALS .; 


JR RARER AAAAE REAR AAAAAAAAAAAAAAARAAERAAARAERAEAAAAAAAAEREE EEE 
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o cm 


/* From here to the end of the structure are read in the 
/* first few blocks of the disk, containing the home block 
/* and the entire directory 

e 


JR MHRA AAEAAAAAAAEAEAEAAAAAAAAAAEAAAREAAAAAAAREAAREREEAAE EEE 


/* Physical block 0 contains the boot block info 
e 
block_0 CHARACTER LENGTH 512; 
e 
/* Physical block 1 contains the volume home block 
® 
block ‘overlay UNION; 
bloc CHARACTER LENGTH 512; 
Rone ‘Block STRUCTU 
rept ee ace tbl CHARACTER LENGTH 130; 
WORD 


ILL; 
init “data CHARACTER" berets 38; 
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64 bup data CHARACTER LENGTH 18: 
65 T_0 CHARACTER tENGTH 260 FILL: 
66 aM ye WORD UNSIGNED; 
67 ote “block WORD UNSIGNED; 
68 ilT_02 CHARACTER LENGTH 14 FILL; 
69 a lester WORD UNSIGNED; 
70 first_seg WORD UNSIGNED; 
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15-SEP-1984 22:44:23 $255$DUA28: CEXCHNG. SRCJEXCDEFS.SDL;1 


a | 
_ 


system_vers WORD UNSI 
volume_id CHARACTER 
owner_name CHARACTER 
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= /* ; 760 - 77 System ID (DECRT11Abbbb) | 
| ; : . : , 6° - 8 Checksum 

® 3 | 
1239 /* ALL other areas in the home block are reserved for future system use. | : 
; re ;The contents of all other areas are undefined. ; 
1 4g /* > (End of DUPROT.MAC inclusion) | : 
124 /* bd | : 
‘seg | 
| ° 
' “8 AGGREGATE rtiihom STRUCTURE PREFIX rtilhom$; : 
1248 reptece col CHARACTER LENGTH 130; /* bad block replacement table | ; 
1249 fill_00 wOR : : 
1250 init_data CHARACTER LENGTH 38; /* INITIALIZE /RESTORE data area : 
1251 bup data CHARACTER LENGTH 18: /* BUP data area : 
1 3g filT_01 CHARACTER LENGTH 260 FILL; | ; 
125 rte_name WORD UNSIGNED; /* Name of RTE to mark RTEM volume : 
15-SEP-1984 23:01:31.30 SDL _V2.0 Cope 30 ; 
15-SEP-1984 22:44:23 ~$255$DUA28: CEXCHNG. SRCJEXCDEFS.SDL;1 ; 
1254 rte_block WORD UNSIGNED; /* RTEM block number for first user file : 
1255 filT_02 CHARACTER LENGTH 14 FILL; ; 
1256 cluster WORD UNSIGNED; /* Pack cluster size ; 
1257 first_seg WORD UNSIGNED; /* PBN of first directory segment : 
1258 system_vers WORD UNSIGNED; /* System version number 3 
1259 volume-id CHARACTER LENGTH 12; /* Volume id ; 
1260 owner_nmame CHARACTER LENGTH 12; /* Owner name : 
1261 syste id CHARACTER LENGTH 12; /* System ID ; 
1366 fill_03 ORD FILL; 3 
\¢07 re checksum WORD UNSIGNED; /* Checksum (not really used) : 
1262 CONSTANT “‘Length’’ EQUALS .; /* Length of data structure i 
1267 END rt thom; 3 
15-SEP-1984 23:01:31.30 SDL _V2.0 Page 31 ; 
15-SEP-1984 22:44:23 _$255$DUA28: CEXCHNG. SRCJEXCDEFS.SDL;1 : 
1269 /* 3 
1270 /* Define various RT11 directory structures. These will not be independent : 
1372 he structures, but will be mapped over the directory segments as needed. ; 
7 Ps 
127 | ; 
1374 /* RT-11 directory segment header : 
1276 AGGREGATE rtlihde STRUCTURE PREFIX rtithdr$; | ; 
® | e 
1278 num_segs WORD UNSIGNED; /* Total number of segments in this directory 3 
1279 next_seg WORD UNSIGNED; /* Segment number of next logical segment : 
1280 high_seg WORD UNSIGNED; /* Wighest segment in use - valid for segment 1 only ; 
1281 extra_bytes WORD UNSIGNED; /* Extra bytes per directory entry : 
1e8e , start_block WORD UNSIGNED; /* Pbn where stored data begins 3 
y Ps 
1286 CONSTANT “‘Length*’ EQUALS .; /* Length of data structure : 
1286 END rtithdr; ; 
1 $8 /s | ; 
1289 /* RT-11 directory entry | 3 

1290 /* 


oo 
No 


AGGREGATE rtilent STRUCTURE PREFIX rtilent$; 


1293 /* .’ | 
1294 fiLL_00 BYTE FILL; 
1295 type_union UNION; 
1 39 type_byte BYTE UNSIGNED; /* Type of directory entry ; 
129 type BITFIELD LENGTH 4; /* Entry is integer in first part : 
1298 type_bits STRUCTURE; : 
1299 typ_tentative BITETELD MASK; /* Tentative file : 
1300 typ_empty BITFIELD MASK; /* Empty entr : 
1301 typ_permanent BITFIELD MASK; /* Permanent file : 
1 4 typ_end segment BITFIELD MASK; /* Last (possibly incomplete) entry in segment ; 
130 typ_filT_0 BITFIELD LENGTH 3 FILL; | : 
1304 s7p pretes ted BITFIELD MASK; /* File is protected ; 
1305 END type_bits; : 
1306 END type_union; : 
1307 filename LONGWORD UNSIGNED; /* $ Radix-§ characters : 
13508 filetype WORD UNSIGNED; /* 3 Radix-50 characters . 
1309 blocks WORD UNSIGNED; /* Total length of file ; 
1310 channel BYTE UNSIGNED; /* <not meaningful for EXCHANGE> | ‘ 
1311 ob BYTE UNSIGNED; /* <not meaningful for EXCHANGE> ; 
aig date STRUCTURE WORD UNSIGNED; /* Creation date field : 
131 year BITFIELD LENGTH 5; /* Years since 19 ; 
1314 day BITFIELD LENGTH 5; /* In decimal, 1-31 F 
1315 month BITFIELD LENGTH 5; /« In decimal, 1-12 ; 
1316 END date; : 
1317 /® 5 
\ai8 CONSTANT “‘Length’’ EQUALS .; /* Length of data structure : 
1350 END rtilent; ; 
15-SEP-1984 23:01:31.30 SDL_ v2.0 Page 32. | : 
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1322 /* : 
132 /* RT-11 file context block This is a combination of the FAB, RAB and NAM block F 
1324 /* for an RT11 random access file : 
1356 
1327 AGGREGATE rtlictx STRUCTURE PREFIX rttictx$; : 
oa Ps 
13¢) te Links to the queues of in-use and available blocks, plus standard type and size fields 3 
e Py 
1331 header STRUCTURE QUADWORD UNSIGNED; /* queue header 3 
1338 flink ADDRESS; /* forward Link : 
133 blink ADDRESS; /* reverse Link F 
1338 / END Link; 3 
e 3 
1336 size WORD UNSIGNED; /* standard size of the block (symbol EXCHBLK$S_rtlictx) : 
1337 type BYTE UNSIGNED; /* type code field (symbol EXCHBLKSK_rtlictx) | : 
1338 ‘ std_fill BYTE FILL; /* unused : 
ry Py 
1340 * alloc ADDRESS; /* Link to List of allocated blocks | : 
1342 i Addresses of associated control structures ; 
1344 assoc_filb ADDRESS; /* address of the filb | ; 
ise? * assoc_volb ADDRESS; /* address of the volb : 
1347 a 1/0 buffer for this record stream | : 
134 P buffer ADDRESS; /* Pointer to the buffer | : 
oe 
1381 ; CONSTANT start_zero EQUALS .; /* here to end is cleared for each copy command | 
® 
| 


m9 


} ? : Data to describe a record stream in the file. 
1355 cur_block LONGWORD UNSIGNED; /* pbn of current block 
1 $ eof_block LONGWORD UNSIGNED; /* pbn of Last block in file 
: Ln cur_byte CONGWORD UNSIGNED; /* offset into the block 
} +4 . Flags for an open file. This longword will be zero when file is not open 
1361 flags STRUCTURE LONGWORD UNSIGNED; /* the whole hy Longword 
1 ¢ stream_active BITFIELD MA ; /* block currently describes an open file 
1 output. “file BITFIELD MASK; /* block currently describes an output file 
1364 ush BITFIELD MASK; /* tell advance routine to "hyeh last block 
1365 pointer BITFIELD MASK; /* tape position is at this file 
: ee ND flags; 

® 
1308 Ae Pointers to the 1/0 buffer for this record stream 

e 
1370 buf _base_block LONGWORD UNSIGNED; /* Pon of first block in buffer 
1371 buf" high_block LONGWORD UNSIGNED; /* Pbn of last block in buffer 
13/6 P high_block_written LONGWORD UNSIGNED; /* Pbn of highest block to the file 

® 
Ie fe The next part is a duplicate of the directory entry 

® 
1376 entry... unton UNION; 
1377 ry CHARACTER LENGTH 14; /* The overall entry 
1378 entry. Fields STRUCTURE; 

15-SEP-1984 23:01:31.30 SDL V2.0 Page 33 
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1379 fill_00 BYTE FILL; 
1380 type_union UNION; 
1381 type_byte BYTE UNSIGNED; /* Type of directory entry 
1382 type” BITFIELD LENGTH 4; /* Entry is integer in first part 
138 type_bits STRUCTURE; 
1384 yp_tentative BITFIELD MASK; /* Tentative file 
1385 typ_empty BITFIELD MASK /* Empty entry 
1386 typ_permanent BITFIELD tty /* Koramnent tite 
1387 typ_end_segment BITFIELD MAS ts Last (possibly incomplete) entry in segment 
1388 tyB_ BITFIELD LENGE 3 FIL 
1389 typ “protected BITFIELD M iS “File is protected 
1390 END type_bits; 
1391 END type_union; 
1236 filename LONGWORD UNSIGNED; /* 6 Radix-50 characters 
139 ri Letype WORD UNSIGNED; /* 3 Radix-50 characters 
1394 blocks WORD UNSIGNED; /* Total Length of file 
1395 channel BYTE UNSIGNED; /* <not meaningful for EXCHANGE> 
1398 job BYTE UNSIGNED; /* <not meaningful for EXCHANGE> 
1397 date STRUCTURE WORD UNSIGNED; /* Creation date fie 
1398 year BITFIELD LENGTH 5; /* Years since 19 
1399 day BITFIELD LENGTH 5; /* In decimal, 1-3] 
1400 BITFIELM LENGTH 5; /* In decimal, 1-12 
1401 END dat 
1008 END entr *Hfalds: 
140 END entry_union; 
1404 * 
re c Expanded name fields 
1209 exp_fullname_len LONGWORD UNSIGNED; /* Length of the concatenated name 
1408 exp_name_len™ LONGWORD UNSIGNED; /* Length of the name fiel 
1409 exp_type_len LONGWORD UNSIGNED; /* Length of the file extension (type) 
1410 exp_protected fare} LENGTH $i /t for normal files, ‘P ** for protected 
1411 exp_ fullname CHARACTER LENGTH 10; /* Name in normal form, no embeddes olanks 
1412 exp_name CHARACTER LENGTH 6; /* Blank padded name 
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1413 exp_type CHARACTER LENGTH 3 /* Blank padded extension 
aid _  expadate CHARACTER LENGTH 11; /* VMS format ascii date 
1218 /* The following items define the location of the above rong Lap can be used to restore to a position in the 
141 /* RT11 errectery, such as to continue wildcard processing of the directory. Note, however, that the RT11 
1418 /* gtrectory mig t be reorgeni zed for many different reasons, such as the creation of a file. The routine 
1419 = /* EXCHSRT11_CHECK POSITION wiil check to make sure that these values stili describe the location of the entry, 
1? » . adjusting them fo the new location if the entry is not in the same position. 
14 ¢ start_block LONGWORD UNSIGNED; /* starting pbn of file 
14 seg_number LONGWORD UNSIGNED; /* directory ———— containing this entry 
1426 seg_address ADDRESS; /* address of start of current segment 
2 i ie ent_address ADDRESS; /* address of next directory entry 
1427 CONSTANT end_zero EQUALS .; 
+? : CONSTAN] “‘Length’’ EQUALS .; /* Length of data structure 
1286 
1431 
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{t+ 
/* 
~ SRTNAM 
o 
. Contains the work area for the DELETE and RENAME verbs 
e 
/*- 
rae rtnam STRUCTURE PREFIX rtnam$; 
® 


/* Dynamic character string descriptors for name components. These strings are reclaimed at the start of each command 


/* 
P input_ filename QUADWORD UNSIGNED; /* desc for current item from input parameter List 
® 
size WORD UNSIGNED; /* standard size of the block (symbol EXCHBLK$S_rtnam) 
type BYTE UNSIGNED; /* type code field (symbol EXCHBLK$K_rtnam) 
P std_fill BYTE FILL; /* unused 
* 
, output_ filename QUADWORD UNSIGNED; /* desc for output parameter 
® 
P input_sticky_name QUADWORD UNSIGNED; /* name to make input files sticky 
wv 
P CONSTANT start_zero EQUALS .; /* here to end is cleared for each command 
i 
/t 


a Flags for boolean DCL command qualifiers 

® 

qual_flags STRUCTURE LONGWORD UNSIGNED; /* the whole flags longword 
a_confirm K; 
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460 ({\ BITFIELD MAS 
461 q_log BITFIELD : , : 
re Q_protect BITFIELD MASK; /* value for protect bit, not useful unless explicit also set 
46 Q_protect_explicit BITFIELD MASK; /* an explicit /PROTECT or /NOPROTECT was seen 
464 9 system BITFIELD ; 
£69 : RD qual_flags; 
46? A Local command flags 

® 
469 rtnam_flags STRUCTURE LONGWORD UNSIGNED; /* the whole flags longword | : ; 
470 multiple_files BITFIELD MASK; /* the input potential 4 describes multiple files 
471 delete_command BITFIELD MASK; /* the command is DELET 
472 rename command BITFIELD MASK; /* the command is RENAME 
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out_ fetched BITFIELD MASK; /* output filename for rename has been fetched 


1473 # 

1474 END rtnam_flags; 

1475 /* . 

1O08 /* Other misc data items 

147 /* 

1008 ce Work area for the current input file 

1480 inp_filb ADDRESS; /* pointer to a filb for the input file 

et te inp_namb ADDRESS; /* pointer to a namb describing the input file 

1488 . Work area for the current output file 

1485 out_filb ADDRESS; /* pointer to a filb for the output file 

1038 ve out _namb ADDRESS; /* pointer to a namb describing the output file 

1488 CONSTAN] end_zero EQUALS .; /* no need to clear the buffers (or create pages not to be used) 
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re 4 CONSTANT ‘‘Length'’ EQUALS .; /* Length of data structure 

1491 END rtnam; 

1492 
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1493 /e+ 

1494 /* 

«1 i. $VOLB = Volume Control Block 

yn 44 pn One entry per active foreign volume. A partially filled VOLB is used to describe RMS files. 

1499 /t- 

1500 

1501 AGGREGATE volb STRUCTURE PREFIX volb$; 

1803s 

1208 An Links to the queues of in-use and available blocks, plus standard type and size fields 

1506 header STRUCTURE QUADWORD UNSIGNED; /* queue header 

1507 flink ADDRESS; /* forward Link 

1508 blink ADDRESS; /* reverse Link 

1509 END Link; 

1510 size WORD UNSIGNED; /* standard size of the block (symbol EXCHBLK$S_VOLB) 

1511 type BYTE UNSIGNED; /* type code field (symbol EXCHBLKSK_VOLB) 

1216 re std_fill BYTE FILL; /* unused 

1314 alloc ADDRESS; /* Link in List of allocated $VOLBs 

1218 . Storage for the following control blocks is allocated at the end of the VOLB 

1518 fab ADDRESS; /* pointer to RMS File Access Block 

1519 rab ADDRESS; /* pointer to RMS Record Access Block 

1520 nam ADDRESS; /* pointer to RMS Name Block 

1521 esbuf ADDRESS; /* pointer to RMS Expanded String Buffer 

12 § a rsbuf ADDRESS; /* pointer to RMS Result String Buffer 

HF 3 oe assoc_namb ADDRESS; /* namb from the volume mount 

1336 ps The rest of the block will be reset to nulls each time the block is allocated 

1396 CONSTANT start_zero EQUALS .; 

1529 /*# 


C 10 
} ° Device characteristics variables (from $GETDVI or invented for virtual devices) 
1 devbufsiz LONGWORD UNSIGNED; /* device buffer size 
1 devchar LONGWORD UNSIGNED; /* device characteristics ($devdef symbols) 
1534 devclass LONGWORD UNSIGNED; /* device class codcet (DC$) symbols) 
1 5 devdepend LONGWORD UNSIGNED; /* device dependent characteristics 
1 devnamlen LONGWORD UNSIGNED; /* device name Lengt 
1537 devtype LONGWORD UNSIGNED; /* device type (Sdcdef (DT$) symbols) 
1538 devmaxblock LONGWORD UNSIGNED; /* maximum number of blocks on device 
1223 ng volmaxblock LONGWORD UNSIGNED; /* maximum number of blocks on volume 
136) Other bits and pieces 
1308 status STRUCTURE WORD UNSIGNED; /* status flags for volume 
1544 connected BITFIELD MASK; /* RMS Record stream connected to volume 
1545 read_check BITFIELD MASK; /* /DATA_CHECK=READ 
1546 write_check BITFIELD MASK; /* /DATA_CHECK=WRITE 
1547 foreign BITFIELD MASK; /* Mounted as a foreign volume 
1548 virtual BITFIELD MASK; /* Native mode file mounted as a virtual volume 
1549 write BITFIELD MASK; /* Open volume for READ/WRITE access 
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1550 vfmt_explicit BITFIELD MASK; /* Volume format specified 
132) yor tt tee BITFIELD MASK; /* Directory structure has been verified 
status; 

1388 , channel WORD UNSIGNED; /* channel assigned to device 

® 
1222 Po Some commands chain multiple nambs from a volb 
1230 , namb_head ADDRESS; 

® 
1559 /* The following structure keeps a bit for each directory segment (bits 1:31) plus a single bit to flag whether 
1560 /* Sirpctery write caching is active (bit 0). This is an interim attempt to produce decent performance until 
126) ‘ full caching is implemented. !?? 
1363 dircache STRUCTURE LONGWORD UNSIGNED; /* complete directory cache longword 
1564 dircache_active BITFIELD MASK; /* cac ing is in force 
1565 /* remaining bits map to directory segments 
1266 - END dircache; 
1568 /* The sg ae format specific longword would normally point to a structure 
1398 ie whose composition depended on the FORMAT byte. 
132) > vfmt_specific ADDRESS; 
1398 vol_format BYTE UNSIGNED; /* constant vol bSk_vfmt_xxx 
1574 CONSTANT ( 
1575 vfmt_invalid, /* value 0, format not set to known value 
1328 vfmt_dos11 /* DOS-11 magtape 
157 vimt~filesi1, /* Files-11 
1578 = {\ vfmt_rtat, /* RT-11 mag tape 
1579 vfmt_rtll /* RT=11 disk 
1280 pe ) EQUALS 0 INCREMENT 1; 
1386 CONSTANT vfmt_lobound EQUALS 0; /* low bound for case statement 
1 pe CONSTANT vfmt_hibound EQUALS volb$k_vfmt_rt11; /* high bound 
1385 /* The vol_type is a text string identifying the volume type, i.e. "'RT-11"' or ‘DOS-11"' 

e 
1889 vol_type_len LONGWORD UNSIGNED; /* Length of the volume type, ai 
1238 J vol_type CHARACTER LENGTH 8; /* Could only be “'RT-11"" or ‘DOS-11"", doesn't need to be long 
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1590 /* Identification of the SVOLB. This is a unique string which is used to find $VOLBs. for foreign-mounted } 

1591 /* devices, this is the actual hardware device name, in the format "Dxcn:"' (e.g. YAO:"') as returned by V 

1 3 /* SGETDVI. For virtual devices, this is the original input device String of the form ''name:'', which is 

159 /* treated as a logical name. When a virtual device is created, the resultant file name string is stored in the 

1594 /* vol_ident so that it can be signalled by the standard ‘‘volume has been initialized’’ message, therefore the 

1336 vol_ident field is much longer than would normally be expected. 

1 39 vol_ident_len LONGWORD UNSIGNED; /* Length of the next field 

1598 vol-ident CHARACTER LENGTH 128; /* Volume ident buffer 

1238 pe devnam CHARACTER LENGTH 64; /* device name buffer 

1601 /* Other items which would be in here if SDL supported external literals. This space is allocated with the 

160 /* rest of the block. Certain pointers above point to these buffers. This area is part of the block, it 

et . is only due to restrictions in SDL that these are not actually defined here. 

1605 /* buf_fab CHARACTER LENGTH #fab$k_blLn; /* RMS File access block 

1606 /* buf _rab CHARACTER LENGTH #rab$k_bin; /* RMS Record access block 

1607 /* buf _nam CHARACTER LENGTH #nam$k_bln; /* RMS Name block | 
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1608 /* buf_esbuf CHARACTER LENGTH #nam$c_maxrss; /* RMS expanded name buffer 

et F /* buf_rsbuf CHARACTER LENGTH #nam$c_maxrss; /* RMS result name buffer 

os | 

19\} CONSTANT ‘Length’ EQUALS .; /* Length of data structure 

16135 END volb; | 

1614 

1615 

1616 END_MODULE; 
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